#!/usr/bin/perl -w
use strict;

use CGI qw(:standard);

use lib qw(./lib);
use egr::Constants;
use egr::Persist;

my $prjName = param('prjName');
my $prjDscr = param('prjDscr');

my $db = egr::Persist->new();
$db->prjCreate($prjName);

print "Content-type: text/plain\n\n";
print "Creating project:\n";
print "prjName = $prjName\n";
print "prjDscr = $prjDscr\n";
